home *** CD-ROM | disk | FTP | other *** search
/ Softwarová Záchrana 3 / Softwarova-zachrana-3.bin / Xteq X-Setup / xqdcXSP-Setup-EN.exe / {app} / plugins / XQ Windows Update 1.xpl < prev    next >
Text File  |  2004-03-01  |  2KB  |  79 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 6.0"
  2. "TYPE"="5"
  3. "COUNT"="2"
  4. "UIPATH 1"="System\User Data"
  5. "UIPATH 2"="Virtual Paranoia\User Data"
  6. "NAME"="Windows Update Registration"
  7. "VERSION"="1.39"
  8. "OSVERSION"="0011111"
  9. "LANGUAGE"="VBScript"
  10. "TEXT 1"="Set Registration Done"
  11. "TEXT 2"="Undo "Registration Done""
  12. "DESCRIPTION 1"="Before you can use the Windows Update features, you normally have to register in order to use this service."
  13. "DESCRIPTION 2"="By clicking on the "Set Registration Done" button, you can use this service WITHOUT registration, so no data from your computer is sent to microsoft.com."
  14. "DESCRIPTION 3"="NOTE: "Windows Update" is not available for Windows 95 or NT."
  15. "AUTHOR"="Xteq Systems"
  16. "CONTACTURL"="http://www.xteq.com"
  17. "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
  18. "COMMENT 1"="Thanks to Steve Mears [mearss@cybernet1.com] for the UNDO idea!"
  19. "COMMENT 2"="Thanks to Anonymous [anonymous@anonymizer.com] for the bug fix of the UNDO patch!"
  20.  
  21.  
  22. sP1=""
  23. sP2=""
  24.  
  25. sP1_98="HKLM\Software\Microsoft\Windows\CurrentVersion\RegDone"
  26. sP2_98="HKLM\Software\Microsoft\Windows\CurrentVersion\Welcome\RegWiz\@"
  27.  
  28. sP1_2K="HKLM\Software\Microsoft\Windows NT\CurrentVersion\RegDone"
  29. sP2_2K="HKLM\Software\Microsoft\Windows NT\CurrentVersion\Welcome\RegWiz\@"
  30.  
  31. Sub Plugin_Initialize 
  32.     if GetWinVer=3 or GetWinVer=5 then
  33.        sP1=sP1_98
  34.        sP2=sP2_98 
  35.     else
  36.        sP1=sP1_2K
  37.        sP2=sP2_2K 
  38.     end if   
  39. End Sub
  40.  
  41. Sub Plugin_CheckData(ElementIndex)
  42. End Sub
  43.  
  44. Sub Plugin_Apply(ElementIndex,ElementSubIndex)
  45.  i=ElementIndex
  46.  Select Case i
  47.  
  48.   Case 1
  49.    Call RegWriteValue(sP1,"1",1)
  50.    
  51.    Call RegWriteValue(sP2,"1",1)
  52.  
  53.    Call MsgInformation("Information updated. You can now access Windows Update without registering.")
  54.  
  55.  
  56.   Case 2
  57.    s=sP1
  58.    v=RegReadValue(s)
  59.    if IsEmpty(v)=false then
  60.       Call RegDeleteValue(s)
  61.    end if
  62.   
  63.    s=sP2
  64.    v=RegReadValue(s)
  65.    if IsEmpty(v)=false then
  66.       'Call RegDeleteValue(s) 'can't be deleted as it's the default value! 
  67.       Call RegWriteValue(s,"",1)
  68.    end if
  69.  
  70.  
  71.    Call MsgInformation("Registration done information deleted. You can now use Windows Update again.")
  72.  
  73.  
  74.  end select
  75. End Sub
  76.  
  77. Sub Plugin_Terminate 
  78. End Sub
  79.